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SQUARES 

by Ron O'Laughlln and Bob Whitworth 
TRS-80'^ version by Rich Bouchard 

Poker Squares Is a card game tor one to four players for a TRS-80 
Model I or III with 16K RAM (32K with disk). 



The dock is ticking, and to get the best score, you must find the best loca- 
tion for the two of hearts you have just drawn. It fits fine in the first row, com- 
pleting your two pairs, but wait — it spoils the straight in clubs in the second 
column. Finding the optimum placement for good cards and bad is the basic 
strategy of Poker Squares, an adaptation of the old poker solitaire card game. 

The computer is the dealer — it shuffles the cards and turns up the first 25 
cards, one at a time. Each player then drops the cards on a 5 x 5 grid by press- 
ing one of the letters A to Y corresponding to the small rectangles that make 
up the grid. As the exposed top card on the deck is played onto the grid, the 
next card is turned up. After all 25 cards are on the grid, the computer adds 
and displays the scores. 

The object of the game is to create ten poker hands, five across and five ver- 
tically, of five cards each. Diagonals do not count. Hands earn a score from 
zero to 30, depending on the relative difficulty of achieving that particular 
hand. {See the end of this article for a scoring chart and short tutorial on the 
ranking of poker hands). 

Strategy is very important in this game. For example, you'll learn to go for 
flushes in one direction and straights, full houses, and so on, in the other. You 
will develop your own particular strategies and may actually become more pro- 
ficient the next time your local poker group gets together. 

You can play the game as solitaire, or up to four players can compete head- 
to-head. In the multiple-player mode, each person plays, in turn, the same 25 
cards turned up in the same order. Dropping the cards into the grid in the best 
possible arrangement will reward you with the highest score. Don't peek at the 
competition! Each player has a set time to play each card, and may select his 
own time limit, providing a very effective handicapping system. 



Beware of the following hazards: Every time the clock runs down to zero, 
the player receives a five-point penalty, and the clock is reset. If you hit an im- 
proper key (one that does not match one of the A to Y grid squares, or one that 
has been previously selected), the appropriate error message appears. Once a 
card has been put onto the grid, you can't move or pick it up again. 

To interrupt the game, hit the up arrow on your TRS-80. Hitting any key 
resumes the contest. 



Scoring Chart 

Straight Flush 30 

Four of a Kind 16 

Straight 12 

Full House 10 

Three of a Kind 6 

Flush 5 

Two Pair 3 

One Pair 1 




Poker Tutorial 

The following hands are listed in ascending order. Any hand listed will 
beat all hands listed above it. Note that the odds are different in real poker 
from what they are in Poker Squares, so the ranking below is somewhat 
different than in the scoring chart above. 

• NOTHING is just what it sounds like — no cards matching in any way 
for any score. 

• ONE PAIR consists of any two cards of the same rank — such as two 
fives or nines. 

• TWO PAIR consists of any two cards of the same rank, two cards of 
any other rank, and the fifth card unmatched. 

• THREE OF A KIND is composed of any three cards of the same rank, 
with the other two cards in the hand unmatched. 

• A STRAIGHT consists of any five cards of two or more different suits 
in sequence of rank. An ace may be used as part of a sequence either on 
the high or low end, such as in A-K-Q-J-10 or the A-2-3-4-5. The cards may 
appear in any order on the Poker Squares board. 

• A FLUSH consists of any five cards of the same suit. 

• A FULL HOUSE is composed of THREE OF A KIND along with a 
PAIR of another kind. Examples are as follows: 6-6-6-K-K and A-A-A-2-2. 

• FOUR OF A KIND is next on the Ust. It consists of four cards of any 
one rank with the fifth card unmatched. Examples are: K-K-3-K-K and 
3-3-3-3-10. 

• A STRAIGHT FLUSH is the highest ranking hand and consists of five 
cards in sequence in the same suit. It is exactly as its name suggests — both 
straight and flush at the same time. 

After you play Poker Squares a fevy times and observe the scoring 
routines, you will develop a strategy and start to get higher scores. 
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-POKER SQUARES- 
Variables 



A(*): Equal to 1 if card already 
dealt in round. 

CL; Time remaining on clock. 
CP(*): Seconds per card allowed 
for each player. 

FlC): Value of card dealt, from 
ace= 1 to king= 13. 
F2(*): Suit of each card dealt, 
from 1 to 4. 

GS: Graphic work string. 
G$(*): Graphic strings for cards. 
G4: Number of games played. 
1$: Input for seconds per card. 
K 1 : Equals 1 if there is a straight 
in the hand, 2 if there is a flush, 
or 3 if both. 

K9: Number of cards in a straight 
for hand. 

L(*,*): Card value at board posi- 
tion, from to 13, with = unoc- 
cupied to king= 13. 
M(*,*): Suit at board position, 
from 1 to 4, 
N: Number of players. 
N$('): Name of each player, 
P: Score for each hand. 
P7('): Accumulated score per 
player. 

P8(*): Total penalty points per 
player. 

P9(*): Total score per player for 
the game. 



Q, Ql: Used to help create graphic 

strings. 

Q$: Single character typed during 

"keypress" routine. 

S$('): Number of cards in each 

suit for hand. Example: S(l) = 2 

signifies that the hand contains 

two cards of suit one. 

T(*): Number of cards by card 

value for hand. Example: T(*) = 2 

signifies that the hand contains 

two cards of suit one. 

U(*): Number of a kind in hand. 

Example: U(2) = 2 signifies that the 

hand contains two pairs. 

V: Number of letter selected, 

A=l, B = 2, etc. 

VS: Character typed during game 

play. 

VAJ: List of one-character card 

values (A23...QK). 

X, XI, X4, X5, X6, X7, X8: 

Miscellaneous uses, 

XX: For-loop variable used in the 

subroutine that draws the game 

board. 

Y: Random number (1-52) for card 

dealt. 

Zl: Row number of letter selected 

on board. 

Z2: Column number of letter 

selected on board. 

Z8, Z9: Miscellaneous uses. 
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SottSlde uV and Cv. 

Initialization and introduction. 

!(i& RANDOI1:i;LEAR500:ll£FlNTA-IrDIMN»('(),A(52),Fll25),F2i25),L(5,5 

l,M(5,5;,P9i4),S!14l.TU4),UiH>,CPI4),P8(')l,P7l4),6tl6) 

no CIS 

120 PRlNfS320.i:B03UBlii0f| 

130 PRiHl;PRlNT1rtB(16t;"l/0 m WANT INSTRUCTIONS <Y/N) ";;GQSUB1 

550:!F&t="('(H£HbOSUE!2£iO 

Read the graphics data. 
140 aS:G0SUB!370 
Zero the game scores. 

150 64=0 

UO FQRX=!T04iP7l)O-0:NEnj 

170 BDTD270 

Subroutine to zero the card codes. 

180 F0Rlfc=lT0l4;Sll6)=0:T()!i)=0;U()(i)=0;N£ni[6 

190 RETURN 

Zero the scores and card-usage flags from previous game. 
200 FOR> = 1T04:P91);(=U:P8I«)=0:NEXT:s 
210 F0RK=nQ52ifl(l)=0!NEnj 

Select 25 different cards, each one with a number from 1 to 

52, and convert this number Into a suit and pip value. 

22I.J FQR)( = 1T025 

230 y=RHD(52l:IFfl!Vl=lTHEN230 

240 A(r) = liF2l);) = lNT(iy-l)/ 131 + 1 !Fl(n=Y-lF2llO-l)tl3 

250 NEHK 

260 RETURN 

Input the number of players. 

270 CLS:60SUB160O 

280 PRlMT)256,CHR*(30l!-PLEASE ENTER NUMBER OF PLAYERS 11-4) M 

AB(441;"^ ";:G0SUB155(i:N=VAL(Qt) 

290 IFNUQRN.;4THENPRlNT!PRINT"TRy A6AIN I ';: 6010280 

Input each player's name. 

300 FBR). = 1TI]N 



■POKER SQUARES — ^ 



SoftSide Selections 5 



SoftSide Selections 
^ POKER SQUARES 



310 PRINTJ320t);«64,CHfi»i30);'NflKE Of PLfiyER";K;TftB(^1!;:INPUTNII 

l(ll!FNHXt = ""TH£N310 

;:0 m(,()=LEFl*(NK)0,!o):HEU!( 

Input each player's time limit. 

330 FBR)I=1T0N 

340 H="!PRIIiT)334<-(N+jl)»M,C.HRt(30)i"BECDNDS PER CARD FOR "jNJ 

(I);" (5-6i))";TfiB(4A);;!NPUTlt!CP(n=VftL(IJ) 

350 lfCPa.>>400RCP();i<5THENPfiINT"TR¥ HBfiIHI°:60TD340 

360 NESTK 

Start play for each player. Draw game board and prompt user 
to start. 

370 6CSUB200 

380 FORX=1TON 

390 F0RI4=1TD5 

400 FORK5=n05:L(l<4,X5)=0:r((Ii,)15)=0 

410 HEni5,K4 

420 60SUB1500:PRlNTJ960,"STftRT OF PLAY FOR "jNUlO;" - PRESS AN 

y KEV; 

430 60SU61550: PRINTCHR* (2VI ;CHRt (30) ; 

440 FORX7=428T055iSTEP64: PRINT JU , STRING* 115, 191) ; iNEXTJ? 

Main game loop. 

450 F0Ril=nO25 

Draw the "turned up" card. 

4i0 PRINTJ435,niD*(VAI,F!Ul),l);GtlF2(Jll); 

470 PRINT*684, "PLACE YOUR CARD'; :CL=CP()[):PRINT8748, 'TINE LEFT:' 

Check If user has decided where to place card. 

480 FORZ8=lT030:V»=!NK£y*:iFV*=""TH£NNEITZ8ELSE540 
If no decision, decrement the clock. 
490 CL=CL-l:PRlNTJ758,CHR»(30);a; 
500 IFCL>0THEH480 

Display message and assign penalty points when time 
runs out. 

510 PRINlJ759,"N0NE"jiPBil)=P8II)-5 

520 FORZ9=!T0100:V«=INKEYt! lFV$="THENNEm9ELSE540 

530 B0T0470 

Check for up arrow key to pause the game. 

540 IfV«=CHR*(9nTHENBOSUB1230:60T0490 

Check for permissible card drop value. 

550 iFW<"fl"QRV»>"VTHEN480 

Adjust card drop value to the range 1-25, and convert it to a 
row and column. 

5iO V=ftSC(Vt)-M 
570 I1=INT((V-1)/5I+1 
530 Z2=V-(I1-1U5 



Check for card drop onto a previously used location. 

590 IfL(Zl,I2)O0THENPRINT9874, -SQUARE TflKEK*;:S0T04B<) 

Decode the card location. 

m PR[NT3B76,CHR»(30)i:LiZl,IZ)=FHni!M(Zl,I2)=F2ai) 

Draw the card In the selected square. 

610 PRlNT)22tB+IltlS2-200,HID«(Vflt,Flll(l),n{S«(F2(X!)lj 

Continue for all 25 cards. 

bin NEHin 

Remove the "up" card after the 25th card Is placed. Then 
calculate the score by column. 

fcJO FOSJ(7=«4TO9ii0STEPi4:PRINTJX7,CHRtlJ0)i!NE!(TI7!pRINTJ297,'P0 
INTS ACROSS: ■i:PRIHTJ36A,; 
kK F0R);7=1T05 
650 EOSUBlflO 
660 F0fi)(8=lT05 

670 S(Ht!7,X8)l=SHm7,lBI)+l!TIL(X7.18n=T(ia7,I8))+l 
680 MEHIS 
690 6DSUB930 
700 NEXTX? 

710 PR!NTCHR«(8);'ABl5''|(':"iP;!P9a)=P9(II)tP:P=0 
Calculate score by column. 
720 PRINTM25, "POINTS BONN:-; !PRINm92,i 
730 FDRI7=!t05 
740 BOSUBISO 
750 F0RJ8=ITQ5 

760 S(l1IS8,l(7n=S(Nl)t8,X7nt|:T[La8.X7))=T(LlI8,I7)Hl 
770 NEITJB 
780 60SUB930 
790 NEUJ7 

BOO PR1NTCHR«(8);TAB(59);" = ";P;!P9(!()=P9(1()+P!P=(I 
Display penalty points, and final score. 

BIO FRINT8553,"PENflLIY P01NTS-;TfiB(59) ; "=";Pfl(l()):P9(I)=f9lX)+Pe 
U) 

820 PRINT9il7,'TDTflL SC0RE'jTflB(59):-=-!P9(Xi;:P7l)tl=P7(J)+P9a) 
Walt for a keypress. 

830 PftINTJ745,"flN» KEV TO CONTINUE -!;8DSUB1550 
Continue for next player. 
840 NEJTK 

Display summary of scores. 

850 CLS:SDSUB16iiO:PSINnflE(22)i-tl S U N M A R Y U-!64=S4*1;P 
RINT:PRiNTTftB(23l( -NUMBER OF BAKES =";64 

860 PRINT: PRlNTTAflU 31 ;*P(.AyER LAST CUHULATtVE ftVERAS 

E-:PR!NTTAB(I3);" NAME BflHE SCORE SCOfiE'iPRINT 

TfiB(7)iSTRINE»(50,13n 
870 fORX=lTON 
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BBO PRIHTlflB(7i;N»U)itflBt24);P9(X);TABf36);P7U)iTftB(19)iIHTl(P 
7()IUS4)+.5) 

890 mm 

Play another hand? 

?00 PRINT: PRJKTTABt20>:'PLfiV ANDTHEfl HAND (Y/N) ?';;605UB1550: IF 

0»<>'V'THEN1610 

910 CLS 

9Z0 SDT033U 

950 FaR)l5=ir013 

9fly IF10i5)>=2THENU(T()l5n=U(TH5)l + l 

■'SO NEUJ5 

Check for tour of a kind. 

960 lFl!U);=nHENPfllNri6f;:P=PM6:RETIJRN 

Check for a full house or three of a kind. 

970 IFUlJKlTHENlOOO 

mi IfUi:)-=lTHENPfiINT"lCit";:P=P<-lO:RETORN 

990 PRlNT-o**;:F-Pt6:REIURH 

Check for number of pairs. 

\m 1FUI2)=OTH£N1030 

1010 lfU(2)=2THENPRlNT'3+';:P=Pt3:R£TURN 

lOrO PRINT ■lf;!P=P*l:RElUftN 

Check for a flush. 

1030 Ki=y 

1040 F0RI5=n04 

1050 1FSI)15);=5THENKU2 

1060 HEXUa 

Check for a straight (ac© high or low), 

1070 >.9=0iH14)=T(l) 

1030 F0fiJ5=lT014 

1090 1FK9=5THEN1160 

1100 tFK9>OTHEH1130 

1110 [FTa5)=0TH£NnA0 

1120 k;9=l:SOiailiO 

IIJO IFTU5)<>ITH£N1150 

1140 H9=r.9+!:60T01160 

1150 l!9=0 

1160 HEUJS 



1170 IFK.9=5THENKl=l!ltl 
Check for a "nothing" hand. 

IIBO IKK^OTHENPfllNT'OfjiRETURN 

Determine whether the hand is a straight, flush, or 

straight flush. 

1190 ONK1BQT01200, 1210, 1220 

1200 FRINT'12*-";:P=P*-!2;RE™n 

1210 PR!NT-5+";tP=P+5:RE™K 

1220 PRlNT"30t';:P=Pt30: RETURN 

Up arrow key time-out. 

S230 PRINTi960,"HIT ftNY KEV TO RETURN TD GAHE "; 

1240 GOSUB1550!pRlNTCHR»(29)iCHR*(30)j 

1250 RETURN 

instructions. 

1260 a5:PRlNimBl25); ■INSTRUCTIONS" 

1270 PR1NT:PRINT THE TRS-BO DEALER NILL TURN UP 25 CARDS OKE 

AT fl TiHE. ™ MUST SELECT ONE OF THE A-¥ LETTERED WHHE 3BUAR 
ES ON WHICH TO- 

1230 PRINT'DROP EACH CARD AS IT COMES UP. "sPRiNT: PRINT' THE 
BJECT IS TD CREATE 10 POKER HANBS OF FIVE CARDS EACH." 
1290 PRINT'THEY ARE THE 5 ROWS ACROSS AND THE 5 COLUMNS DOWM. ' 
1300 PRINT: PRINT" NHEN SEVERAL PLAYERS COMPETE, ALL WILL BE D 
EALT THE SAME 25 CARDS. HOX YOU PUT YOUR CARDS DONN NILL DETERfl 

INE SCORING.' 

1310 eOSUB15A0 

1320 FRINTJ128,I:HR»(31);" EACH HAND HILL EARN A SCORE OF - 

30 DEPENDINS ON YttUR SKILL AND SOME LUCK." 

1330 PRINT;PRINT"BETTER PLAYERS MAY BE BIVEN A HANDICAP BY ALLQN 

INB THEM LESS TIME TO PLAY. THE PENALTY IS 5 POINTS EVERY TI 

ME THE TIMER" 

1340 PRINT-REACHES ZERO.'sPRINTiPRiNT" AFTER EACH ROUND AN AC 

CUMULATIVE SCORE SUMMARY PflBE NILL BE DISPLAYED FOR EACH PLAYER 
ID SEE JUST HON HE ";CHR*i34)j 'STACKS UF'iCHRt(34) 

1350 PRINTiPRINT- BOOD LUCK AND NO CHEATINB" 
IJiO 6aSUB1540:ft£TURN 
Create graphics strings. 

1370 6«=CHRtl26)+STRIN6<(6,B) 

1380 FflR)(=lT04;R£ADQ 

13W FQRU=lfeB;REAOei 

HOO IFei(;-lTH£Ne*()l)=G»ai+CHR«(QI)ELSES»ai«B*ai+6» 

1110 N£XT>6,)[ 

1420 DATA 20,1911,159,135,139,175,191,-1,189,144,144,140,160,190, 

-1,191, 103,177, 178, 137, 191 

1430 DATA 20, 19!, 191, 135, 13<?, 191, 191, -1,183, 128, 145, 162, 128, 187, 

-1,191,183,177,178,187,191 

1440 DATA 20, 131, 131, 187, 147, 131,171, -1,128, 174, 191, 191, 132, 170, 

-1,176,174,187,177,176,186 
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1450 MIA 20, 131, 187, 117, 187,147,171,-11 130,175, 191, 191, 135, 170, 

-1,17b, 176,187, 177, 176,196 

1460 6«=6«+CHR«(BI:6*(5)=STRlKe»(7,19IltGUSTRlNG»(7,191)tG«tSTR 

lNe«l7,l91) 

1470 6l(6)=STRlNB»l8,;2)t6ttSTRl»6ll8,32)te»tSTRING«l8,32> 

1480 Vft»='fl234567e9IJ9IC 

1490 RETURN 

Subroutine to draw the game board. 

1500 CIS 

1510 F0RU=OTO4:fOR>=t)T04!PRINTjn»Bt1ftl92,G»(5);:PRlllT)ntStV»l 

92+66,* ";CHRl(65tXUYt5l;' ■;:NEUy.n 

1520 F0RV=ir04!PR!NTayil92,;:F0RX);=0T04:PfllNlSTRlN6il7,188l;CHR» 

(25);:NEnu,y 

1530 R£l!tRN 

Subroutine to wait for a keypress. Entry at 1540 dIspSays a 

message before getting the ctiaracter, wtiiie an entry at 1550 

simply waits for a keypress. 

1540 PR1NTJ979,'H1T m kEY TO CONTINUE "; 

1550 QJ=INKEY« 

1 560 PRINTCHR* ! 143) ;CHR$ i24) i !F0Rfl=lTD5: Q«=!HKEYJ: IFtH=" " IHENNEX 

TOiPRlNT- ■;CHRI(24);::F0Re=lT05:9»=lNKEY*:IFQ*="THENNEnQ!S[JT01 

560 

1570 tFe»>=CHR«l97)flHD0»<=CHR«ll22HHENtH=CHRllflS:(a»)-32) 

1560 IFet>=' ■AND(m='inHENPRlNTQ»;ELSEPRlNT* "; 

1590 RETURN 

Print "Poker Squares" message In a graphic box. 

1600 PRINTTABU8);CHRt(188);5TRINEt(27,14«);CHRtn88l;PRINTTAeil 
8)iCHft»ll9!)i' POK'ER SSUARES ';CHR«U9n:PRINTTflBll8 
liSTRING«(29,131iiRETURN 

Program end. 

32767 CLS:EKD 
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LINES 


CODE 


LENGTH 


LINES 


CODE 


LENGTH 


lOO - 210 


HB 


347 


940 - 1050 


FD 


241 


220 - 330 


m 


343 


106O - 1170 


JU 


176 


340 - 450 


TO 


358 


1180 - 1290 


RZ 


504 


460 - 570 


SJ 


339 


1300 - 1340 


EG 


539 


580 - 690 


u 


343 


1350 - 1450 


HJ 


506 


700 - 810 


ftl 


297 


1460 - 1570 


\m 


440 


820 - 930 


JO 


472 


1580 - 32767 


UJ 


149 




Micro- 
Monopoly 



by Charles W. Scott 

TRS-80® version by Paul Schlfferll 



Micro-Monopoly Is a game program for a 48K TRS-BO Modet I or III. It 
Is the bonus program on Issue #41 SoftSlde DV. See the coupon near 
the back of this booklet to order your disk. 

Charles Darrow invented the board game Monopoly in the days of the Great 
Depression, and for five decades, Monopoly has allowed generations to play 
out their Everyman fantasies of being land tycoons in Atlantic City. Micro- 
Monopoly brings a two-player version of the game to your TRS-80, pitting you 
against the wily intelligence of the computer. 

Micro-Monopoly follows the published rules, with a few minor exceptions 
chosen to make the two-player format more playable. The ten percent unmort- 
gaging surcharge, required by the original rules, is strictly enforced, as is the 
rule prohibiting jailed players from collecting rent. 

The game deviates from the official rules four times: 

• The popular "Free Parking" pot is an option with Micro-Monopoly. Play 
this option the way you like it. 

• Properties are never auctioned, as this is undesirable in a two-player game. 

• Hotels appear on the various displays as five houses, although rent ap- 
propriate for hotels is charged. 

• You may not trade properties with Micro-Monopoly. If you want to unload 
a property, you may sell it to the bank. 

The operation of the game is explained in the instructions offered at 
the beginning of play, and all prompts are self-explanatory. So gather^ 
up your real-estate theories, and try to gain absolute dominion ove^ _ 
Atlantic City. JtWl 
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by Rich Bouchard 



The Memory Game is a one to eight player memory game for the 
TRS-80® Model I or III with 16K (cassette) or 32K (disk). 

How sharp is your memory? Your computer challenges its powers in The 
Memory Game. 

As the game opens, you are presented with a board of graphic blocks — 
nine, sixteen, 25 or 36 of them, depending on the difficulty level you choose. 
Each block is identified by a single letter or number. A number is hidden 
behind each block, ranging from one to the number of blocks on the screen, 
and the object of the game is to find every hidden number in sequential order. 
To sec the number hidden behind a block, strike the keyboard character used 
to identify it. The number beneath the appropriate block then flashes briefly. 
If it is a one, the block disappears and the numeral "1" is displayed at the 
bottom of the screen in a small graphic rectangle. If it is not a one, the graphic 
block reappears, and the player has another chance to search for the "1". 

After he's found it, the player must search for the two, then the three, and 
so on until he has found every hidden number. Take heart, however: the 
numbers remain stationary. That is, if the number "4" is behind block "B"at 
the start of the game, it remains there until the game is over. So, when the 
player needs to find the four, later in the game, he need only remember where 
it lies. 

There are four difficulty levels, numbered from three to six. The levels 
refiect the number of columns and rows of blocks displayed. Difficulty level 
four, for example, has four rows of four blocks, for a total of sixteen blocks. 

You may set another difficulty factor by entering a time limit for each 
number search. If you do not want a time limit, hit ENTER when asked for it. 
A player may then continue searching for numbers (almost) forever. 

After the player has found all the hidden numbers, he is given a score based 
on the amount of time it took him/her to find all the numbers. This score is 
adjusted for the game's difficulty level. The highest possible scores are 100 at 
level three, 250 at level four, 500 at level five and 999 at level six. Scores this 
high are practically impossible — the chance of a player scoring 999 points at 
skill level six is less than one in one duodecillion (a "1" followed by 39 zeros)! 



At the beginning of each multi-player game. The Memory Came asks 
"SAME PUZZLE FOR ALL PLAYERS?" If you answer "Y", the numbers 
hidden behind each block remain the same for every player. If you answer 
"N", the numbers are scrambled for each player. Generally, you will choose 
the "N" option. Sometimes, however, especially when players are competing 
with one another, you wilt want to enter a "Y" response. You can choose an 
interesting variation to this game by selecting a multi-player game, using the 
same puzzle for every player, and then playing every player's game yourself. In 
this variation, the knowledge gained concerning the position of the hidden 
numbers during your Tirsl game is valid during the other games. See how much 
this knowledge can help your score. 

The Memory Game uses sound effects, so be sure to connect an amplifier to 
the AUX jack of your computer. 



Variables 



A,A$: Multi-purpose work 
variables. 

A1,A2: Point to start of Machine 
Language sound routine. 
Bl(NS): List of numbers behind 
each graphic block at the start of a 
game. 

B2(NS): Similar to B1{NS), but 
contains zeros for any block 
removed from play during current 
player's game. 

C: Counter used to determine 
when TI should be incremented. 
G1$,G25: Graphic rectangles. 
HP: Number of player with 
highest score for current game. 
HS(NS), HS$(NS): High score and 
scorer's initials for each skill level. 
IDS: A list of single character 
identifiers for each graphic block 
on the screen. 



J: Work variable. 

LV: Current skill level. 

NB: Number of blocks in current 

board. NB is always equal to the 

square of LV. 

NP: Number of players. 

NS: Number of possible skill 

levels. 

NU: Last number player has 

"found." 

PB: Screen position of upper-left 

corner of playing board. 

PL: Number of player whose turn 

it is. 

PN: Screen position for display of 

variable NU. 

S(NP): Scores for each player. 

SP: -I if all players are using the 

same board set-up; if the 

numbers are to be scrambled for 

each player. 
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^ THE MEMORY GAME ^ 



^ 



? 



SS S3 SS 35 SS SS SS S3 SS SS SS 
SS SS 

SB TRS-30 BASIC SB 

SS 'The Heiory Baie' SS 

BB Author! Rich eoucharj 5S 
i^ SS Copyright (c) 19B3 SS 
p SS SoftSidE Publications, Inc SS 
SS SS 

SS SS SB SS SS SS SS SS SS SS SS 

If you don't wish to type this 
program, It Is available on Issue #41 
SoftSlde DV and CV. 

Initialize sound routine, clear string space, and define all 
variables as Integers. 

100 CLS:BaS!)B60000 

110 CL£ftR!CLEAR500:DEFINTfl-Z!GDTOi00O 

Subroutine to get a single character Into A$. 

200 fl»=[NKEV« 

219 PRlHTi;HR»lM3l;CHR«(24);!U=USfi(RN0(5lt512):FDftT'lTO5:A«=lNKE 
r«;lFAt="THEMNEnT:PR!NT' ■;CHR»(24);!FQRT=1T05!A«=!NK£V«:IFA»= 
■•THENNEITT:80T0200 

220 IFA»>=' ■THENPR1NTA»;ELBEPRINT" 'i 
230 PR!NTCtffi«(2A)i: RETURN 

Subroutine to get a 1-3 character string Into A1$. 

2^0 fil»="!A$=INKEK» 

250 80SUB210 

240 IFfi«=CHR» (13) THENlFfll t= " " THENfl 1$=" ???" ! RETURHELSERETURN 

270 IF(A«=CHRi(eiORA»=CHR«(24)lftHDA!»(>"THENPR!NTCHRI(2A);:fllt= 

LEFT$(All,LEH(Alt)-ll 

280 !FA$>-' ■ANDLES(A!«)<3THENPRIHTCHR»l25);!fll»=Al»+AI 

290 SOT0250 

Initialize variables and arrays. 
1000 60SUB2900 



Main program loop starts here. 

Display title page and get skill level, number of players, and 
time limit. 

1010 B0SUB23O0 

initialize variables concerning the playing board size. Set 
current player variable (PL) to 1. 

1020 605UB2600 
1030 PL=1 



Scramble and display playing board. 

1040 60SUB2700 

Walt for user to strike a key. If a proper block Is selected, 
display the number behind it. If "CLEAR" Is hit, cancel game. 

1050 AI=INKat:Ifflt=CHR*(31)TH£NPR[NTS320,*Bfll1£ CANCELED •;:%[? 

L)=0:FORT=!TQ40!U=USR(U25tiM):HEnT:BOT012BO 

1060 IFfl«="0Rfl»>"I"IHEHC=Ctl:IFCt20TH£Nltt50ELSE1120 

1070 fl=ftSCtft*l-64:IFA>-liftNDA(-6THENA=A+42ElSElFft=-lMHEHfl=56 

1080 1FA(10RA>NBORB2(-AHA>0)I=OTHENU=USR 128101 tSOTOl 130 

10<JO Y = INTf(fi-l)/LV[:)(=A-nLV:PRIN7JPB*Ytl28+)H6-A,B2IAI; 

1100 lFB2(fl)=tlUt!THEH1170 

lUi.t U=USRl5170l:FaRJ=!T050:NEnj!F-RIMTSPB+Ytl2BUI4-4,CHR»(I<>n 

|«IDt(IDI,A,U!CHR«ll91l;:SaT01130 

1120 U=USRI2570) 

Increment timer and end game if out of time, 

IIJO C=OrTl=TItl 

1 HO IFIL=0THENPR1NTJ3;0, T I ;ELSEPR1NTS330, TL -TI ] 

1150 1FTL=OORT1<TLTHEM1050 

lliO PR1NTJ320,'I1NE EUPlflED! l';;U=USR(-l)!S<PL)=0!GOI012eO 

Player has found the next number. Display the number and 
erase the block It was behind. Continue If there are more 
numbers still hidden. 

1!70 NU=NU+1:PRINTJPN,NU;:U=USR(5140):U=USR (77001 !U=USR(5M0) 

HBO B2(A)=0 

1190 PRINTJPBtYH28+UA-6,STRIN6» 13,321; 

1200 IFNU<NBTHEN1120 

Player has found all the hidden numt>er3. Ptay a sequence of 
notes, then compute and display score. 

1210 FORT=60r0160STEP10:fl=T>256tT/4+6553illT)127) 

1220 U-USR(Al;MEnT 

1230 FORT=16OTOi0STEP-10iA=TI256tT/4t65534«(T>127) 

1240 U=USR(A);NEnT 

1250 IFLV=3THENS(PL(=108-IlELSElFLV=4THENSIPU=UB)-TI)tl.5*lELS 

EIFLV=5THENS(PLI=I274-TI)I2ELS£S(PL)=(368-Tn«3 

1260 IFS(PLI<OTH£NS(PL)=0 

1270 PR1NTS320,'Y0UR SCORE: "; S(PLI | 

Walt until the player Is done reading his or her score. Then 
either go on to the next player, or display the final scores and 
allow another game to be started. 

1280 PRIHTSl'7," HIT (ENTER) TO CONTINUE '; 
1290 6aSUB200; IFA«< >CHR« ( 13) THEN1290 
1300 IFPHNPTHENPL=PL+1:80TD!040 
1310 6OSUB200O 
1320 GOTQIOIO 

End of main program loop. 

J 
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Subroutine to display final results. If a player has beaten the 
tvlgh score, get his or her Initials. 

2000 CLS 

2010 FRlNTTfiB(24) 1 CHR« ( IBS) ! STRINBt f 15, HO) jCHfit (188) 

2020 PRlHTTAB(24)iCHR«(191)r FINAL RESULTS ^CHRlll?!! 

2030 PR[NTTAB(24);STRINe»(17,13l) 

20W PRINT 

2050 PRIHT-BAflE LEVEL: TLV; 

2060 lFHSlLV-:)<>0THENPR]KTTflBl3O)iUSIN6'PREVIDUS HIBH SCORE; »t 

I BV 1 :';HSlLV-2);HSHLV-2); 

2070 PR1NT:PR1MT 

2080 !FKP=1THEHPRINI'V0UR SC0REi':S(l)!HP=l!60T02150 

2090 PfilMT "SCORES:" 5 

2100 FORT=lTONP:PRINTTftB(10l;USlN6'l. III")T)SIT) 

2110 NEITT 

2120 HP=l:F0RT=2F0NP:lFS(TI>StHPUHENHP=T 

2130 NEXTT 

2140 lFSiHfK>0THENPRINT«20tJ0tHPt64,'0UR WINHER!"; 

2150 1FSIHPK=HS(LV-2)THEN21B0 

2160 PR1MT»908,"NEW HIGH SCORE' ENTER VOUR INITIALS >'; 

2170 60SUB240:HS»av-2)=fll»:HS(LV-2)=B(HP) 

2180 PR1NT»896,CHR»I30)(IAB(20);"HIT (ENTER) TD CONTINUE '; 

2190 8()SUB200:IFAI()CHR«(IJ)THEN2190 

2200 RETJRH 

Subroutine to display title page and high scores, and get 
number of players, skill level, and time limit. 

2300 CLS 

2310 PRIKTTABl22l;CHR$H881;STRINS«(17,140l!CHR*(188) 

2320 PRINTTAB(22)iCHR»(191(j" THE MEMORY 6AHE "jCHRtll?!) 

2330 PRIHTTflBi22)iSTRINS$(19,I31) 

2340 PRINT 

2J50 FRINTTflfi(13>;"-> WRITTEN BV RICHARD BOUCHARD JR. <-" 

2340 PRlNT;PRINT"BOflRD SUES:'; 

2370 F0Rl = lT0NS:PRINTTAB(i*TII2);lt2!"r;Tt2;:«nT 

2380 PRIMT:F0RT=lTDNS:PRINnflBI5+Ttl2li' "pNtnT 

2390 PR1NT:PRINT"HIBH SCORES;'; 

2400 F0RT=nQHSTPRlHTTAB(5tTll2t;:IFHSm=0THEHPRINT" M0NE";EL5 

EPRINTUSINS'III BY ;; I")HS(TliHSI(T)! 

2410 NEXTTjPRINTiFRINT 

2420 IFNP=ITHENPfiINTUSING* LAST SCORE: tl* POINTS'jSlI); 

2430 1FNF<2THEN24A0 

2440 PRINT'LAST SCORES: ";:F0RT=lT0NP:PRINTSTRINB»(i,32)iUSIHG"t. 

ltl";TjS(Tii:IFT=4ANDNP>4THENPRINT:PRINTTAB(12)r 
2450 NEITT 

2460 PRINTSB34,"HIT A NUMBER 3-6 TO PLflV AT fl SELECTED DIFFICULT 
1 LEVEL, ":PRlNTTfiB(201i"0R (CLEAR) TO EHT SANE >"; 
2470 B0SUB20O 
24B0 IFft»-CHRH3n THENPR1NTJ832, CHR» 13 1) ; i60T0327i7 



2490 IFft«'"3*0RflJ>"6"THEK:*70 

2500 LV=VflLlftl) 

2510 PRINT»J0ttLV)12,BI»; 

2520 PRINTJ832,i;HR»l31);JflBl20);"HO)( (WHY PLflyERS (1-8)7 "; 

2530 SOBUB200! NP=VW. (fll) : lFNPaORNP>BTHEN2530 

Z5M FRIMTiB%,CHR»('>l)(IflB(19>i*TIH£ LIHlt (IF DESIRED! ?'j;BOS 

UB240irL^VftLlAltl:lFTl=0(lNDASClAlf)<>4aANDASC(A!t)<)ii3THEN2540 

2550 IF«P=1THEH2580 

2560 PRlNTS<)iO,CHR$(31);TABIlfl)i*SflHE PUZZLE FOR ALL PLftVERS? "; 

2570 60SUB200: If fl<="r'THErt5P=-lELSE!Fft»="N'THtNSP=0ELSE2570 

2580 RETURN 

Subroutine to compute numt>er of blocks on current txsard 
(NB) and to determine position for board on screen (PN). 

2600 KE=LV«L(/ 

2610 1FLV=6THEHPE=80:PN=927ELSE1FLV=51HEI1PB=H6:PH=862ELSE1FLV=1 

THENPB=213:PN=7'?3£LSEPB=280:PH=734 

2620 RETURN 

Scramble and display board, then wait for player to be ready 
to start. 

2700 IFPL=lDRSP=0THENftl=LEFT«('7B'?:j': = >^»ABCDEFBHlJKLI1NOPORSTUVII 

n;',KEI:F0RT=lT0N»:J=RND(LEN(ftt)l!B!(TI=AGC(l1ID«(A$,J,!M-54:fl« 

=LEFTflAt.J-lttHID»(flt,J + n!M£nT 

2710 S(PLI=0 

2720 T1=0:C=0!NU=0 

2730 CIS 

27« fDR(=lT0LV:F0R*=lT0LV:FRINTSPBtYtl2BtItA-l34,CHRi(19l);mD< 

(!D»,'(«LVH-LV,ll;CHft»(191)i;NEni(,V 

2750 PRINT»PN-65,E:t; 

2760 PRINIS32O,;:IFTL=0PR INT TIHE; O'sELSEPRlNTUME LEFT:" 

iTL: 

2770 lFNP;lTHENPRlNT34A8,"PLflyER t';PL; 

27BO F0RT=IT0NB:B2(TI=B1(]I:NEUT 

2790 F-RlHI4lA,"Hn CENTER) MN READY TO START "; 

2800 GDSUB200: IFA$<>CHR» (13) THEN2B00 

2810 U=USR(10020l:PRlNT31*,CHR»(30);TAB(t'?li'HlT (CLEAR) TQ: CftNC 

EL GftflE"! 

2820 RETURN 

Subroutine to initialize variables and arrays. 

2900 tlB=4:DlHHS(NS),HSI(NS),Bl(J6),E2l36) 

29U1 ID»='flBCDEF6H!JKLI1NaPBRSTl)Vltl(YZ1234567890' 

2920 GU<HRt 1 1881 tSTfiING* ( 7, 140) tCHR« 1 168) *CHRt (26) tSTfilNBt 19, 2 

4)tCHR»1191)4STRINGJ(7.25)+CHR«(191)tCHRt(26l*STRING»(9.24)*STRI 

N6*(9,131lt" ■ 

2'' 30 B2»=CHR« ( 18B) tSTRlNSI (4, 1 40) +CHR» (188) *CHR* (26) tSTRIHGI (6,2 

4)fCHRJ(i9)lf "tCHRK 191) tCHR»(2i)+STRiHBI(6,24)tSTRlNGt 16,1 

31) 

2940 RETURN 
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Program termination. 

32747 END 

POKE sound routine Into high memory. 

iOOOO V=234!)t=255!P0KE-l,O;IFPEEK(-l)<>0THEKX=191:P0KE-lfc385,0fI 

FPEEK(-16JS5K;0THEHX=127 

60010 P0fcE16562,l:P0KE1654t.Y:CLEAR50;ft!=PEEKI165(>l)t2:fl2=PEEIi(l 

6562) : A=fll+fl2«25fc: l=fl- 1 : FOKI=1TD20: 1=2+1: i=2t-65534H Z)32767) 

60020 REftI)y;Zl = Zl*y:PaKEZ,t:HEn 

60030 lFZlO2700THEHCLS:PRINT"DfiIft BftSE ERROR !N LINES 40050-600 

60. CHECK LISTING. •!PRIH1:LIST60050-60060ELSE!FPEEK(163')61=201TH 

EI(P0KE1652i,Al;PDKE16527,A2ELSECHD'T*:DEFUSfi=Al*(fl2*256tlfl2>127) 

)t256:P0KEt430fl,0 

60040 U=USfll2827hBOT0110 

40050 DflTA205, 127 , 10,6?, 62, 1 ,21 1 ,255, 16, 254, 69 ,175 

60060 DflTA21 ! , 255 , 1 6 , 254 , 37 , 32, 240 , 20 1 




SWAT 



TARLE For TRS BOB THE MEMORY GAME 



LINES 



SWAT 

CODE LENGTH 



lOP - 290 

1000 - UIO 

1120 - 12J0 

1240 - 2020 

2030 - 2140 



PV 
Q8 
16 

lY 



349 
410 
345 
J49 
322 



LINES 



SWAT 

CODE LENGTH 



2150 - 2350 
2340 - 2470 
2480 - 2600 
2410 - 2790 
2800 - 60010 
40020 - 40060 



JT 
HP 
NP 
LP 
KK 
SJ 



356 
467 
404 
503 
545 
284 





Tired of Typing? 



• Use And Enjoy These Programs Right 
Away! 

• Avoid Worry About Typos! 

• Get Additional Programs to Enjoy 
Without Typing. 




Order this Issue's Programs on Disk or Cassette! 

S«nd the coupon below to: 

SoftSlde Publications, Inc. 

6 South Street 

Milford, NH 03055 




ide 
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ORDER THIS ISSUE'S MEDIA 

Havmg difficulty finding the time to rnput ihe programs 
Ifom this isiue of So/tStde Seleclions^ Don l deipatr — ihe 
cassette and disk versions are siiil available' Af>d. each DV 
{dtsk vefsion) contains an additional program 



n Ml DV tl6.00 


D #41 CV S8.00 






DM OfilT: D Apple* 
DM or CUKttF O Ala 


aiBM'K 

;• a TRS-80» Mod. 


DTRS-ao»Mod 


III 


Nflfnp 










AHHrp^s 


nivi'^iMf 






Tin 





D Check Of Money Ord«f 

D MasterCard D VISA 
Name of Cardholder 



MC# or I nterbank#/VI 5A# 

Exp. Date Signature_ 










Prkw ii*b|«!i to chinif without fKKtc* Apple*. IBM*. Ann* ami TBS-W* are rc|isier«J tr*d*m*ikj ot The Apple Compvier 
ComfMny, Intefnai*on»l Busw»*» M«Kjin«. Inc . Wirntr CcHnmwn.ica(Hjn», »«J The Tandy CorpofAlioo feip«liv*lv 
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Issue 41 Adventure: 
Atlantis 

You are an undersea ex- 
plorer, and discover the 
legendary Lost Continent. 
The repressive regime of the 
wicked Prince Retep throws 
you In jail, and you resolve 
to rid Atlantis of this despot. 



SoftSide Adventure Series ^V ^-OV 

What would you say to a program that asks, "What do you want to do?" 
Well, you might say. "GET RUBY" or "KILL GIANT", because that's how 
the SoftSide Adventure Series works. 

Each issue, the latest Adventure takes you to another world of fantasy, 
puzzles, and thrills. Your first task is often simple survival — and even that 
basic feat can be daunting until you figure out the right way to do it. You'll 
have to be ingenious and persevering, and your rewards will be great. 

To "win" a fantasy/adventure game, you must solve the author's devious 
puzzles, and overcome the obstacles that confront you — whether they be 
dragons or desperadoes. Death, should it come, is transitory — just re-run the 
program to live againi 

Experienced adventurers make detailed maps of each world as an aid to 
effecting a solution, but you can omit this exercise if your memory is excep- 
tional. Express your wishes with one- or two-word commands, like "LOOK", 
"DROP KNIFE", or "GET RUBY". Use "I" to get an inventory of your 
possessions. The introduction to each Adventure explains this more fully. 

To start up the Adventure, just run the program called "INTRO" or "IN- 
TRO/BAS" on your disk, or select the Adventure from the DV menu. On 
cassette, the INTRO program is the one just before the Adventure, which is 
the last program on the tape. 

The adventnre rniu on any TRS-80 with ■! least l«K RAM (32K disk). 



Here are the encrypted hints for 
Volcano Island, the adventure in Issue 40. 



VOLCAMO 
ISLAND. 



MZGREVH ORPV ZOXLSLO. 

IFYYVI RH Z TLLW RMHFOZGLI. 

DSZG WL ZM LXGLKFH ZMW Z GBKVDIRGVI 
IRYYLM SZEV RM XLNNLM? 

GSV MZGREVH ZIV ZUIZRW LU GSV XZEV. 

TIZHH ZMW YZNYLL NZPV Z TLLW GIZK. 

HVZTFOO UVZGSVIH NZPV TLLW KVMH. 



SoftSide Selectiont 21 



SoftSide Selections 



' General Information 

These are the standard procedures for the programs published In 
SoftSide Selections. Sometimes, a particular program does not lend 
Itself to these procedures. Always read the specific instructions ac- 
companying a program. They will Instruct you if there are any 
variances from the following procedures. Also, back issues of Soft- 
Side may differ In some details. 



At the conclusion of each program listing in SoftSide Selections, 
we include a SWAT (Strategic Weapon Against Typos) Table. SWAT 
for the TRS-80 appeared in SoftSide Issue #30. If you missed Issue 
#30, we'll send you a free reprint of SWAT. Send a self-addressed, 
stamped envelope to: 
SoftSide Publications, Inc. 
Department SWAT 
6 South Street 
r^dJiford, NH 03055 

Please be sure to tell us that you have a TRS-80 computer. 



Magnetic Media 

Disks are available in Model I or Model III format. They contain the 
DOSPLUS operating system. A cover program runs automatically 
when you boot the disk. Back issues earlier than May 1981 are 
available only in Model I format. If you have a two-drive Model Ml, you 
can convert such disks with the CONVERT utility. 

Tapes CLOAD in the normal manner on Model I's, and at low speed 
(500 baud) on Model Ill's. The first program is a cover/menu program; 
side two of the tape is a duplicate of side one. 

SoftSide Selections disks and tapes are duplicated on reliable, pro- 
fessional equipment. Bad copies are exceedingly rare. Nevertheless, 
the trip through the mail occasionally results In damage to the sen- 
sitive magnetic media. If, after a reasonable number of attempts on 
well-adjusted, clean equipment, you are unable to load a program, 
return it to us along with an exact explanation of your problem. We 
will send you a replacement copy. 

SoftSide Selections media are not copy protected. We urge you to 
make an archival backup copy of your disk or tape as soon as you 
receive it, as our replacement policy is valid only for 30 days. Please 
resist the urge to give away copies of copyrighted material. 



Line Listings 



The line listings in this booklet are in standard 64-column format, 
and they appear exactly as they should on your screen when you type 
LIST. 



System Requirements 



The necessary memory and other equipment you need to run a pro- 
gram are listed In the introductory paragraph of the article for each 
program. (Also see the SoftSide Adventure Series elsewhere in this 
. booklet.) 

>v J 
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The Best of SoftSide 

D VES...I want to enjoy the best programs — Games, Utilities. 
Adventures — <rom SoftSide Magazine's past Please rush my 
copies of The Best of SoftSide to 

Name . 

Addresj 

City State Zip 

Here's my order For The B«il of SoflSide 




Computer 


Quantity 
Booli Only 
S19.f 5 «. 


Quantity 
Book plus Disli 


Apple* 






Atari* 






TRS4>CI»Mod 1 






TRS^K)*Mod III 






TOTAl COPIIS 


•tn« 


Ctba'n 



D I've already ordered The Best of Soft- 
Side book I'm enclosing J49 for the disks 
only 

Total Enclosed i 



VISA;MasterCatd« and Interbank* . 

Name of Cardholder 

Signature 



I'm paying by D Check D Money Order 
D VISA D MasterCard 

[foit^tn Q*dM pirjw uKltMif *i [K»i«i« PAY IN USA FUNDS ONLV | 



_Ei(p Date_ 



Like SoftSide? Wait 'til you've seen our BEST! 



,,n»»* 






The Best 
of SoftSide! 



For the past four years, SoftSide Magazine has been bringitig Apple*, Atari* , and 
TRS-80* owners the best in BASIC software. But now you can do even better. ..The 
Best of SoftSide. From all our back issues, we've selected the most useful... the most 
entertaining. ..the most fun programs SoftSide has ever published. 

Tk* B*s1 of SoftSide is available in three versions... one for Apple, Atari, and 
TRS-80. Each contains page after page of BASIC code for adventures, simulations, 
practical appUcations, and much more. 



To order your copy of The Best of SoftSide, fill out the coupon , and mail it 
along with $19.93 to SoftSide, 6 South Street, Milford, New Hampshire 03055. 
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3ifectionj 



Here's SoftSlde Selections, the handy, 
pull-out booklet with program listings for 
your TRS-80 Model 1 or III computer. This 
issue, SoftSlde Selections for the TRS-80 
features: 

• Poker Squares — This issue's Front 
Runner is a competitive graphic card 
game for one to four players. 

• The Memory Game — Your TRS-80's 
RAM never forgets. How good Is your 
memory? 

• TRS-60 DV Bonus Program: Micro- 
Monopoly brings the popular board game 
to your TRS-80. Try to outwit Its electronic 
real-estate savvy. 

• The SoftSlde Adventure Series — 
Atlantis, by Peter Klrsch. 

Seek the lost city, and rid it of the evil 
Prince Retep. 



SOFTSIDE PUBLICATIONS, INC. 

Mllford, New Hampshire 



